﻿Imports System.Windows.Forms

Public Class PCB_ZNN

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Dim intValue As Integer
        If Not Integer.TryParse(TB_PCBZNN.Text, intValue) Then
            MsgBox("Please Enter a Number", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly)
            TB_PCBZNN.Text = ""
            Me.TB_PCBZNN.Select()
        Else
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
            NewRecord_Form.TB_PCBZNN.Text = TB_PCBZNN.Text
            Me.Close()
        End If
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub PCB_ZNN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TB_PCBZNN.Select()
    End Sub

    Private Sub BTN_Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Previous.Click
        PCBZnn_Prev = "Y"
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub BTN_Skip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Skip.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
    End Sub
End Class
